100 POKE53281,0:POKE53280,0:PRINT"[147]"
105 POKE56,128:CLR
107 DV=PEEK(186):IFDV<8THENDV=8
110 SYS57812"TRICKS.O",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
111 SYS57812"TRICKS FONT 1",DV,0:POKE780,0:POKE781,0:POKE782,144:SYS65493
112 SYS57812"TRICKS FONT 2",DV,0:POKE780,0:POKE781,0:POKE782,152:SYS65493
120 S1=34816:S2=36864:S3=38912:S9=51200:POKE648,128:PRINT"[147]";:SYS49152,S1
130 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR1:REM BANK #2
140 POKE53272,2:POKE650,128
147 REM MACHINE LANGUAGE ROUTINES:
150 CR=49152:REM COPYROM
160 CS=49251:REM CLEARSET
170 RS=49277:REM RSTORSET
180 FO=49442:REM FADEOUT
190 FI=49477:REM FADEIN
200 RV=49674:REM RVRSESET
210 XS=49722:REM XORSET
220 SW=49778:REM SCRWEDGE
225 WO=50009:REM WEDGEOFF
230 SS=50022:REM SPREDSET
240 RB=50084:REM RUBSET
250 RT=50276:REM RTRVESET
260 RM=50301:REM REMBRSET
270 R1=50171:REM SCRNFILL
280 R2=50224:REM COLRFILL
285 DIMA$(7),A(7),B$(13,2),B(20),C(10),C$(6,9),D(8):Q$=CHR$(34)
290 A$(1)="[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
300 A$(2)="[219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219]"
310 A$(3)="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
320 A$(4)="**************************************"
330 A$(5)="%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
340 A$(6)="[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]"
350 A$(7)="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
360 FORA=1TO7:READA(A):NEXT:FORA=1TO13:FORB=1TO2:READB$(A,B):NEXT:NEXT
370 FORA=1TO10:READC(A):NEXT
380 FORA=0TO9:C$(6,A)="[215][215][215][215][215][215][215][215][215][215]":NEXT
390 FORA=0TO5:FORB=0TO9:READA$:C$(A,B)=""+A$:NEXT:NEXT
400 FORA=1TO8:READD(A):NEXT
499 REM DISPLAY COPYRIGHT NOTICE
500 REM
510 AL=1:PRINT"[147]":SYSRM,S2:SYSCS,S1
512 FORA=1TO10:POKE646,C(A):PRINT"-HERE'S MORE STUFF FOR YOUR PROGRAMS!-":NEXT
515 PRINTTAB(2)"                                    "
520 PRINTTAB(2)"[154]          CHARACTER TRICKS          "
525 PRINTTAB(2)"[154]                 BY                 "
530 PRINTTAB(2)"[154]     JOHN WILLIAM HARRIS (TMG)      "
540 PRINTTAB(2)"[154]      @ 1991 BY SOFTDISK, INC.      "
550 PRINTTAB(2)"[154]     PUBLISHED ON LOADSTAR 207!     "
560 PRINTTAB(2)"[154]   SUBSCRIPTIONS : 1-719-537-6484   "
570 PRINTTAB(2)"[154]          WWW.LOADSTAR.COM           "
580 PRINTTAB(2)"[159]                                    "
590 SYSRS,S1:F=0
600 PRINTTAB(9)"[158]---- PRESS A KEY! ----":CT=700
610 GETA$:IFA$=""THENCT=CT-1:IFCT>0THEN610
620 IFA$<>""THEN1000
630 SYSCR,S9:SYSRS,S1:GETA$:IFA$<>""THEN1000
640 SYSRM,S2:SYSRS,S1:GETA$:IFA$<>""THEN1000
650 SYSRM,S3:SYSRS,S1:GETA$:IFA$<>""THEN1000
660 GOTO630
1000 SYSCS,S1:PRINT"[147]";:SYSRM,S2:G=INT(RND(1)*7)+1:SYSR1,A(G):H=INT(RND(1)*15)+1
1010 SYSR2,H
1030 PRINT"[150][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1040 FORA=1TO21:PRINT"[150][221]                                    [221]":NEXT
1050 PRINT"[150][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
1100 PRINT"[159]CHARACTER TRICKS: JOHNNY'S TRICKS II"
1110 PRINT"[150]USE THE [159]JOYSTICK[150] OR [159]CURSOR KEYS[150] TO"
1120 PRINT"CHOOSE SOMETHING, THEN PRESS [158]FIRE[150] OR"
1130 PRINT"[158]RETURN[150] TO CONFIRM YOUR SELECTION."
1140 PRINT"[150][213][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1150 FORA=1TO13:PRINT"[221][159] [150][221]                                [221]":NEXT
1160 PRINT"[171][177][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][179]"
1170 PRINT"[153]INTRODUCTION"
1175 PRINT"[153]SCREEN AND COLOR FILL...AGAIN?"
1180 PRINT"1[146][154]THE ROM-COPY ROUTINE"
1190 PRINT"2[146][154]SLIDE OFF & SLIDE ON"
1210 PRINT"3[146][154]FADE OUT AND IN"
1220 PRINT"4[146][154]REVERSE A SET[146]"
1230 PRINT"5[146][154]XOR:FOR THE TECHIE IN SOME OF US"
1240 PRINT"6[146][154]THE INTERRUPT WEDGE"
1250 PRINT"7[146][154]SPREAD-WARNING:VERY FATTENING "
1260 PRINT"8[146][154]RUB-THIS BABY SLICES AND DICES"
1270 PRINT"9[146][154]RETRIEVE AND REMEMBER"
1280 PRINT"JUST ABOUT EVERYTHING...YIKES!!"
1290 PRINT"[159]LEAVING ALREADY? [158]LOADSTAR"
1292 PRINT"[155]"B$(AL,1):PRINT""B$(AL,2)
1300 A=33011+AL*40:B=AL:C=22528:POKEA+C,3:POKEA,68:SYSRS,S1:SYSSW,S1+A(G)*8,1
1305 POKE198,0
1310 D=PEEK(56320):IFD=127THEN1400
1320 IFD=126THENGOSUB1500
1330 IFD=125THENGOSUB1600
1340 IFD=111THEN1700
1345 GOTO1310
1400 GETA$:IFA$="[145]"THENGOSUB1500
1410 IFA$=""THENGOSUB1600
1420 IFA$=CHR$(13)THEN1700
1425 IFA$=" "THEN1800
1430 IFVAL(A$)=.THEN1310
1440 ONVAL(A$)GOSUB40000,41000,42000,43000,44000,45000,46000,47000,48000
1450 GOTO1310
1500 IFB>1THENPOKEA,32:B=B-1:A=A-40:POKEA+C,3:POKEA,68
1510 PRINT"":POKE214,20:PRINT:PRINT"[155]"B$(B,1)
1520 PRINT""B$(B,2)"";:RETURN
1600 IFB<13THENPOKEA,32:B=B+1:A=A+40:POKEA+C,3:POKEA,68
1610 PRINT"":POKE214,20:PRINT:PRINT"[155]"B$(B,1)
1620 PRINT""B$(B,2)"";:RETURN
1700 AL=B:IFB=13THEN14000
1701 A$=LEFT$(A$(G),3):B$=RIGHT$(A$(G),2)
1702 C$=A$+""+B$
1704 POKE646,H:PRINT"";:FORA=1TOB+6:PRINTA$(G):NEXT:PRINTC$
1705 FORA=B+8TO24:PRINTA$(G):NEXT:PRINT"";
1706 SYSR2,1:FORE=1TO15:POKEA,69:SYSR2,6:POKEA,68:SYSR2,3:NEXT
1707 SYSR2,1:SYSR2,15:SYSR2,12:SYSR2,11:SYSR2,0:SYSR1,32:SYSWO
1710 ONBGOTO2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000
1800 SYSRM,S3:SYSFO,S1,1:SYSFI,S1,1:S4=S2:S2=S3:S3=S4:GOTO1310
2000 REM
2010 GOSUB21000
2035 PRINT"I N T R O D U C T I O N"
2040 PRINT"[150]ANOTHER SET OF INTERESTING,"
2050 PRINT"UNUSUAL AND WEIRD ML GRAPHICS"
2060 PRINT"ROUTINES TO USE IN YOUR OWN"
2070 PRINT"PROGRAMS.  MOST OF THESE ROUTINES"
2080 PRINT"REQUIRE A CUSTOM CHARACTER SET, OR"
2090 PRINT"AT LEAST A COPY OF THE BUILT-IN ROM"
2100 PRINT"SET, TO BE EFFECTIVE.  THUS, A BIT"
2110 PRINT"MORE PROGRAMMING EXPERIENCE MIGHT BE"
2120 PRINT"NECESSARY TO MAKE ANY USE OF THESE"
2130 PRINT"ROUTINES."
2140 PRINT"MOST OF THE CHOICES FROM THE MAIN"
2150 PRINT"MENU SHOW OFF ONE OR TWO ROUTINES."
2160 PRINT"THEY ALSO GIVE SOME INFORMATION"
2170 PRINT"ABOUT IT, AND SHOW SOME WAYS IT"
2180 PRINT"COULD BE USED. SEE THE INSTRUCTION"
2190 PRINT"FILE FOR MORE ABOUT EACH ROUTINE."
2200 PRINT""TAB(5)"[153]PRESS [158]FIRE[153] OR [158]RETURN[153] TO GO ON"
2210 GOSUB20000:GOSUB21000
2220 PRINT""TAB(10)"INTRODUCTION PAGE 2"
2230 PRINT"[150]ABBREVIATIONS:"
2240 PRINT""TAB(8)"CSS-CHARACTER SET START"
2250 PRINT""TAB(6)"SP-SPEED ROUTINE OPERATES AT"
2260 PRINT"ONE LAST THING: TO SWAP THE TWO"
2270 PRINT"CHARACTER SETS THE PROGRAM USES,"
2280 PRINT"PRESS [158]SPACE[150] FROM THE MENU SCREEN."
2290 PRINT"[153]PRESS [158]FIRE[153] OR [158]RETURN[153] FOR THE MENU."
2300 GOSUB20000:GOTO1000
3000 PRINT"[159]NOTE-YOU MIGHT REMEMBER THESE FROM THE"
3010 PRINT"PREVIOUS PROGRAM. THEY'RE BACK, NOT"
3020 PRINT"BECAUSE OF PUBLIC DEMAND OR ANYTHING"
3030 PRINT"LIKE THAT, BUT BECAUSE THEY MAKE"
3040 PRINT"PROGRAMMING THIS DEMO EASIER."
3050 FORA=1TO5000:NEXT
3060 FORA=1TO26:SYSR1,A:SYSR2,INT(RND(1)*16):NEXT:GOTO1000
4000 GOSUB21000:PRINT""TAB(6)"C O P Y  T H E  R O M  S E T"
4010 PRINT"[150]A QUICK SYS TO 49152, FOLLOWED BY"
4020 PRINT"A COMMA, AND THE ADDRESS OF WHERE"
4030 PRINT"YOU WANT IT, AND YOUR FIVE-AND-A"
4040 PRINT"-HALF HOUR CHARACTER SET COPYING"
4050 PRINT"TROUBLES ARE OVER!"
4060 PRINT""TAB(5)"[150]PRESS [158]FIRE[150] OR [158]RETURN[150] TO GO ON"
4070 GOSUB20000:GOSUB21000:PRINT"[158]OBSERVE:"
4080 FORA=1TO5:PRINT"ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890":NEXT
4090 FORA=1TO1000:NEXT:PRINT"THIS IS A CUSTOM SET."
4100 FORA=1TO3500:NEXT:SYSCR,S1
4110 PRINT"AND THIS IS THE ROM SET, COPIED":PRINT"OVER IT."
4120 FORA=1TO4000:NEXT:PRINT"NOT VERY ENTERTAINING, BUT IT"
4130 PRINT"GETS BETTER.":FORA=1TO3000:NEXT:GOTO1000
5000 GOSUB21000:PRINT""TAB(6)"S L I D E  O F F  A N D  O N"
5010 PRINT"YOU'VE PROBABLY SEEN JUST ABOUT"
5020 PRINT"ENOUGH OF THIS PARTICULAR ROUTINE,"
5030 PRINT"EH?":FORA=1TO3000:NEXT
5040 SYSRM,S1:SYSCS,S1:FORA=1TO250:NEXT:GOSUB21000
5050 PRINT"OH, AND YOU CAN USE IT IN REVERSE"
5060 PRINT"AS WELL.":SYSRS,S1
5070 FORA=1TO3000:NEXT:GOTO1000
6000 SYSR1,INT(RND(1)*256):SYSR2,7
6005 PRINT""TAB(7)"F A D E  O U T  A N D  I N"
6010 PRINT"I JUST GOTTA SAY I LIKE THIS ONE"
6020 FORA=1TO3000:NEXT:SYSFO,S1,10:SYSR1,INT(RND(1)*256):SYSR2,3
6030 PRINT"YOU CAN FADE STUFF BACK IN AS WELL."
6035 PRINT"AND WHO SAID YOU HADDA STICK WITH"
6037 PRINT"JUST ONE CHARACTER SET?"
6040 SYSRM,S3:SYSFI,S1,5:FORA=1TO5000:NEXT:GOTO1000
7000 SYSR1,INT(RND(1)*128):SYSR2,10
7005 PRINT""TAB(8)"[158]R E V E R S E  A  S E T"
7010 PRINT"I KNOW, YOU CAN DO THIS BY JUST"
7020 PRINT"ADDING 128 TO EVERY CHARACTER ON"
7030 PRINT"THE SCREEN.  BUT THIS IS BETTER"
7040 PRINT"BECAUSE (A) IT REVERSES THE"
7050 PRINT"SCREEN NO MATTER WHAT THE UPPER 128"
7060 PRINT"CHARACTERS MIGHT HAPPEN TO BE, AND"
7070 PRINT"(B) IT'S MORE FUN."
7080 FORA=1TO5500:NEXT:FORA=1TO100:SYSRV,S1:NEXT:GOTO1000
8000 GOSUB21000
8005 PRINT""TAB(6)"T H E  X O R  R O U T I N E"
8010 PRINT"XOR'S EVERY BYTE IN THE SET BY A"
8020 PRINT"SPECIFIED NUMBER.  IT'S ACTUALLY"
8030 PRINT"MORE HELPFUL THAN IT SOUNDS, SINCE"
8040 PRINT"YOU CAN, IN A LIMITED WAY, MAKE"
8050 PRINT"UP YOUR OWN EFFECTS.  HERE ARE A FEW"
8060 PRINT"EXAMPLES..."
8070 FORA=1TO5500:NEXT:FORB=1TO2:FORA=0TO7:SYSXS,S1,2^A:NEXT:FORC=1TO1000:NEXT
8080 NEXT
8090 FORA=0TO7:SYSXS,S1,2^AOR2^(7-A):NEXT:FORA=1TO1000:NEXT
8100 FORA=1TO20:B(A)=INT(RND(1)*256):SYSXS,S1,B(A):NEXT
8110 FORA=1TO1000:NEXT:FORA=1TO20:SYSXS,S1,B(A):NEXT
8120 FORA=1TO2000:NEXT:GOTO1000
9000 A=INT(RND(1)*128)+128:SYSR1,A:SYSR2,6:B=D(INT(RND(1)*8)+1):C=S1+A*8:D=0:E=0
9002 SYSSW,C,B
9005 PRINT""TAB(2)"T H E  I N T E R R U P T  W E D G E"
9010 PRINT"[154]WORKS IN THE BACKGROUND, SO YOU"
9020 PRINT"DON'T HAVE TO WORRY ABOUT IT."
9030 PRINT"IT'S GOT A FEW BELLS AND WHISTLES,"
9040 PRINT"TOO."
9050 PRINT"PRESS '1' TO CHANGE DIRECTION,"
9060 PRINT"'2' TO ACTIVATE JOYSTICK MODE, AND"
9070 PRINT"'3' TO START THE FLASHING."
9080 PRINT"[158]FIRE[154] OR [158]RETURN[154] RETURNS TO THE MENU."
9090 GETA$:IFA$="1"THENB=D(INT(RND(1)*8)+1):GOTO9500
9100 IFA$="2"THEND=NOT D:GOTO9500
9110 IFA$="3"THENE=NOT E:GOTO9500
9120 IFA$=CHR$(13)ORPEEK(56320)=111THENSYSWO:GOTO1000
9130 GOTO9090
9500 POKE53280,1:SYSSW,C,B+ABS(D)*16+ABS(E)*32:POKE53280,0:GOTO9090
10000 SYSR1,78:SYSR2,3:PRINT"[159]"TAB(14)"S[206]P[206]R[206]E[206]A[206]D"
10010 PRINT""Q$"EXPANDS"Q$"[206]EVERY[206]CHARACTER[206]IN[206]THE[206]SET."
10020 PRINT"MOST[206]IMPRESSIVE[206]ON[206]TALL[206]CHARACTERS"
10030 PRINT"LIKE[206]LETTERS[206]&[206]GRAPHICS[206]SYMBOLS."
10035 FORA=1TO5500:NEXT:FORA=1TO8:SYSSS,S1:NEXT:GOTO1000
11000 GOSUB21000
11005 PRINT""TAB(17)"R U B"
11010 PRINT"[154]HEY, THINKING UP NAMES FOR THESE"
11020 PRINT"THINGS ISN'T EASY!  WHAT WOULD YOU"
11030 PRINT"CALL IT, ANYWAY?"
11040 FORA=1TO3500:NEXT:SYSRB,S1:GOTO1000
12000 GOSUB21000
12005 PRINT""TAB(10)"RETRIEVE AND REMEMBER"
12010 PRINT"[159]YOU USE THESE ROUTINES TO MAKE"
12020 PRINT"SORT OF A BUFFER TO HOLD THE"
12030 PRINT"CHARACTER SETS YOU WANT THE ROUTINES"
12040 PRINT"TO WORK WITH.  YOU SEE, WHEN MOST"
12050 PRINT"EFFECTS ARE USED, THE CHARACTER SET"
12060 PRINT"INVOLVED IS OFTEN DESTROYED, SO IF"
12070 PRINT"YOU WANT TO KEEP THE SET, YOU'LL"
12080 PRINT"HAVE TO MAKE A COPY OF IT SO YOU CAN"
12090 PRINT"PUT IT BACK IN PLACE LATER. RETRIEVE"
12100 PRINT"COPIES A SET INTO THE BUFFER, AND"
12110 PRINT"REMEMBER PUTS IT WHEREVER YOU WANT."
12140 PRINTTAB(10)"PRESS [158]FIRE[159] OR [158]RETURN[159]"
12150 GOSUB20000:FORA=1TO25:SYSRM,S2:SYSRT,S1:SYSRM,S3:SYSRT,S1:NEXT
12160 GOTO1000
13000 SYSRM,S3:SYSCS,S1:GOSUB13500:SYSFI,S1,20:SYSSW,35504,D(INT(RND(1)*8)+1)
13010 FORA=5TO0STEP-1:FORB=0TO9:PRINT"[153]"C$(A,B):IFA=0THENSYSWO
13020 NEXT:FORB=1TO1500:NEXT:PRINT"[145][145][145][145][145][145][145][145][145][145]";:NEXT
13050 SYSR1,102:FORA=1TO7:SYSR2,A:SYSXS,S1,INT(RND(1)*256):SYSRV,S1:NEXT
13060 FORA=1TO20:SYSRV,S1:SYSR2,INT(RND(1)*15)+1:NEXT
13070 SYSSW,35600,36:SYSCS,S1:SYSR1,98:SYSR2,3:SYSRM,S3:SYSRS,S1
13080 FORA=1TO15:FORB=1TO700:NEXT:SYSXS,S1,INT(RND(1)*256):NEXT
13090 SYSWO:FORA=1TO8:SYSSS,S1:NEXT:SYSRB,S1:GOTO1000
13500 PRINT"[147][159][207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]"
13510 FORA=1TO23:PRINT"[165][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][167]":NEXT
13520 PRINT"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]";
13530 PRINT""TAB(5)"[154][207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]"
13540 PRINTTAB(4)"[214][154][165][150]T I M E   T O   I M P A C T :[154][167]"
13550 PRINTTAB(4)"[214][154][204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]"
13560 PRINTTAB(4)"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
13570 PRINT""TAB(14)"[159][207][163][163][163][163][163][163][163][163][163][163][208]"
13580 FORA=1TO10:PRINTTAB(13)"[214][159][165][153][215][215][215][215][215][215][215][215][215][215][159][167]":NEXT
13590 PRINTTAB(13)"[214][159][204][164][164][164][164][164][164][164][164][164][164][186]":PRINTTAB(13)"[214][214][214][214][214][214][214][214][214][214][214][214]"
13600 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]":RETURN
14000 SYSWO:SYSFO,S1,3:SYSR1,INT(RND(1)*64)+192:SYSR2,7
14005 GOSUB21000:PRINT"[154]ARE YOU SURE THAT YOU WANT TO GO TO"
14010 PRINT"[159] L   O   A   D   S   T   A   R "
14020 PRINTTAB(17)"[153](Y/N)?":SYSRM,S2:SYSFI,S1,1
14030 GETA$:IFA$="N"THEN1000
14040 IFA$<>"Y"THEN14030
14050 FORA=0TO11:SYSRV,S1:NEXT
14060 SYSFO,S1,20:PRINT"[147]";:SYSRT,S1:POKE648,4:PRINT"[147]";
14070 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3
14080 GOTO40005:REMPOKE56,160:CLR:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT"
14090 INPUT#15,A$,B$,C$,D$:CLOSE15:IFA$<>"63"THENEND
14100 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
14110 PRINT"RUN"
14120 POKE631,13:POKE632,13:POKE198,2:END
19999 REM WAIT FOR FIRE OR RETURN
20000 GETA$:IFA$<>CHR$(13)ANDPEEK(56320)<>111THEN20000
20010 RETURN
21000 PRINT"[159][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
21010 FORA=1TO23:PRINT"[194]                                    [194]":NEXT
21020 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";:RETURN
30000 DATA86,91,102,42,37,87,98
30010 DATA"      --- READ THIS FIRST ---       "
30015 DATA"+ PRESS A NUMBER KEY FOR A PREVIEW +"
30020 DATA"  AND DOESN'T THIS LOOK FAMILIAR?   "
30025 DATA"USAGE:SYS50171,CHAR & SYS50224,COLOR"
30030 DATA" IT'S TOO SLOW TO DO THIS IN BASIC  "
30035 DATA"           SYS 49152,CSS            "
30040 DATA"YOU SAW IT ON THE COPYRIGHT NOTICE. "
30045 DATA"    SYS 49251,CSS & SYS49277,CSS    "
30050 DATA"  A PIXEL-BY-PIXEL FADE OUT EFFECT  "
30055 DATA"SYS 49442,CSS,SP & SYS 49477,CSS,SP "
30060 DATA" REVERSES THE ENTIRE CHARACTER SET  "
30065 DATA"           SYS 49674,CSS            "
30070 DATA"   MORE USEFUL THAN IT SOUNDS...    "
30075 DATA"   SYS 49722,CSS,# TO BE 'XOR'ED    "
30080 DATA"SCROLLING BACKGROUNDS FOR YOUR PROG."
30085 DATA"   - - - S E E   T E X T ! - - -    "
30090 DATA"    MAKES THE CHARACTERS 'GROW'     "
30095 DATA"  FOR A=1 TO 8:SYS 50022,CSS:NEXT   "
30100 DATA"       PULLS CHARACTERS APART       "
30105 DATA"           SYS 50084,CSS            "
30110 DATA" LETS YOU MOVE AND USE SETS EASILY  "
30115 DATA" SYS 50276,CSS AND SYS 50301,CSS  "
30120 DATA"  HAVE YOUR PROTECTIVE GOGGLES ON?  "
30125 DATA"                                    "
30130 DATA"         I'LL BE SEEING YA!         "
30135 DATA"                                    "
30160 DATA0,6,14,3,13,1,13,3,14,6
31000 DATA"[215][215][215][209][209][209][209][209][215][215]"
31010 DATA"[215][215][209][209][209][209][215][215][209][215]"
31020 DATA"[215][209][209][209][209][215][215][215][209][209]"
31030 DATA"[215][209][209][209][209][215][215][209][215][209]"
31040 DATA"[215][209][209][209][209][215][209][215][215][209]"
31050 DATA"[215][209][209][209][209][209][215][215][215][209]"
31060 DATA"[215][209][209][209][209][215][215][215][215][209]"
31070 DATA"[215][215][209][209][209][209][215][215][209][215]"
31080 DATA"[215][215][215][209][209][209][209][209][215][215]"
31090 DATA"[215][215][215][215][215][215][215][215][215][215]"
31100 DATA"[215][215][215][215][209][209][209][215][215][215]"
31110 DATA"[215][215][215][209][209][209][209][215][215][215]"
31120 DATA"[215][215][209][209][209][209][209][215][215][215]"
31130 DATA"[215][209][209][209][209][209][209][215][215][215]"
31140 DATA"[215][215][215][215][209][209][209][215][215][215]"
31150 DATA"[215][215][215][215][209][209][209][215][215][215]"
31160 DATA"[215][215][215][215][209][209][209][215][215][215]"
31170 DATA"[215][215][215][215][209][209][209][215][215][215]"
31180 DATA"[215][209][209][209][209][209][209][209][209][209]"
31190 DATA"[215][215][215][215][215][215][215][215][215][215]"
31200 DATA"[215][215][209][209][209][209][209][209][209][215]"
31210 DATA"[215][209][209][209][209][215][215][215][215][209]"
31220 DATA"[215][215][215][215][215][215][215][215][215][209]"
31230 DATA"[215][215][215][215][215][209][209][209][209][215]"
31240 DATA"[215][215][215][215][209][209][209][209][215][215]"
31250 DATA"[215][215][215][209][209][209][209][215][215][215]"
31260 DATA"[215][215][209][209][209][209][215][215][215][215]"
31270 DATA"[215][209][209][209][209][215][215][215][215][209]"
31280 DATA"[215][209][209][209][209][209][209][209][209][209]"
31290 DATA"[215][215][215][215][215][215][215][215][215][215]"
31300 DATA"[215][215][209][209][209][209][209][209][209][215]"
31310 DATA"[215][209][209][209][209][215][215][215][215][209]"
31320 DATA"[215][215][215][215][215][215][215][215][215][209]"
31330 DATA"[215][215][215][215][215][215][215][215][215][209]"
31340 DATA"[215][215][215][215][215][215][209][209][209][215]"
31350 DATA"[215][215][215][215][215][215][215][215][215][209]"
31360 DATA"[215][215][215][215][215][215][215][215][215][209]"
31370 DATA"[215][209][209][209][209][215][215][215][215][209]"
31380 DATA"[215][215][209][209][209][209][209][209][209][215]"
31390 DATA"[215][215][215][215][215][215][215][215][215][215]"
31400 DATA"[215][215][215][215][209][209][209][209][209][215]"
31410 DATA"[215][215][215][209][209][209][209][215][209][215]"
31420 DATA"[215][215][209][209][209][209][215][215][209][215]"
31430 DATA"[215][209][209][209][209][215][215][215][209][215]"
31440 DATA"[215][209][209][209][209][209][209][209][209][209]"
31450 DATA"[215][215][215][215][215][215][215][215][209][215]"
31460 DATA"[215][215][215][215][215][215][215][215][209][215]"
31470 DATA"[215][215][215][215][215][215][215][215][209][215]"
31480 DATA"[215][215][215][215][215][215][215][215][209][215]"
31490 DATA"[215][215][215][215][215][215][215][215][215][215]"
31500 DATA"[215][209][209][209][209][209][209][209][209][209]"
31510 DATA"[215][209][209][209][209][215][215][215][215][215]"
31520 DATA"[215][209][209][209][209][215][215][215][215][215]"
31530 DATA"[215][209][209][209][209][209][209][209][209][215]"
31540 DATA"[215][215][215][215][215][215][215][215][215][209]"
31550 DATA"[215][215][215][215][215][215][215][215][215][209]"
31560 DATA"[215][215][215][215][215][215][215][215][215][209]"
31570 DATA"[215][209][209][209][209][215][215][215][215][209]"
31580 DATA"[215][215][209][209][209][209][209][209][209][215]"
31590 DATA"[215][215][215][215][215][215][215][215][215][215]"
31600 DATA1,9,8,10,2,6,4,5
39999 SYSCR,S1:RETURN
40000 SYSCR,S1:RETURN
40005 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
41000 SYSCR,S9:SYSCS,S1:SYSRS,S1:SYSRM,S3:SYSRS,S1:SYSRM,S2:SYSRS,S1:RETURN
42000 Z=INT(RND(1)*10)+1:SYSRM,S1:SYSFO,S1,Z:SYSFI,S1,Z:RETURN
43000 SYSRV,S1:RETURN
44000 Y=(INT(RND(1)*2))*85:Z=(INT(RND(1)*2))*170:X=YORZ
44010 SYSXS,S1,X:RETURN
45000 SYSSW,S1+A(G)*8,D(INT(RND(1)*8)+1)ORINT(RND(1)*2)*32:RETURN
46000 SYSRM,S1:FORX=1TO8:FORY=1TOINT(RND(1)*100):NEXT
46010 SYSSS,S1:NEXT:SYSRS,S1:RETURN
47000 SYSRM,S1:SYSRB,S1:SYSRS,S1:RETURN
48000 SYSRM,S3:SYSRT,S1:SYSRM,S2:SYSRT,S1:RETURN
60000 D=PEEK(186):N$="B.TRICKS II":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END